home *** CD-ROM | disk | FTP | other *** search
/ Go64! / Go64_1999-03_1999_CSW_Side_A.d64 / nova.Data convrt (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  91 lines
  1. 10 poke45,peek(174):poke46,peek(175):clr
  2. 20 data300,1200,2400,4800,9600,19200,38400
  3. 30 data3408,851,425,4915,1090,459,3410,845,421
  4. 40 data3283,820,409,4735,1050,442,3285,814,406
  5. 50 dv=peek(186):q$=chr$(34):ifdv<8ordv>16thendv=8
  6. 60 dimp$(38),ph$(38),pw$(38),bd$(38),bd%(38),cg%(38),l8%(38),sc$(38),b%(17)
  7. 70 dimfc$(16),p(12),bd(6):open9,0:vn$="9.4":fori=0to6:readbd(i):next
  8. 80 forj=0topeek(678)
  9. 90 fori=0to8:readq:r2=int(q/256):r1=q-r2*256:b%(i*2)=r1:b%(i*2+1)=r2:next:next
  10. 100 d1=dv:d2=dv:d3=dv:d1$="0:":d2$="0:":d3$="0:":pn=4:ps=7:sw=0:c8=191:c9=15
  11. 110 c4=1:c7=27:xo=17:xf=19:xp=0:pa=0:ft=15:fc=32:sr=1:fk$="":ss$=""
  12. 120 print"[147][206]ovaterm config file converter"
  13. 130 print"([195]onverts older config files to v"vn$")":open15,dv,15
  14. 140 print"[197]nter old version number: [160][157]";:input#9,v$:print""
  15. 150 v=val(v$):ifv=0then440
  16. 160 vv$=mid$(str$(v),2):ifv=int(v)thenvv$=vv$+".0"
  17. 170 gosub610:ifv=0then140
  18. 180 ifv>9then260
  19. 190 ph=38:fori=1to38:ifbd$(i)=""then220
  20. 200 j=0:fork=0to6:ifval(bd$(i))=bd(k)thenj=k:k=6
  21. 210 next:bd%(i)=j
  22. 220 ifp$(i)=""thenph=i-1:i=38
  23. 230 next:ifbd<7then260
  24. 240 j=0:fori=0to6:ifbd=bd(i)thenj=i:i=6
  25. 250 next:bd=j
  26. 260 print"[211]aving...":ifpf$=""thenpf$="nova phone"
  27. 265 iffk$=""thenfk$="nova key"
  28. 270 open2,dv,2,"nova data "+vn$+",s,w":print#2,vn$
  29. 280 print#2,bd:print#2,di:print#2,d1
  30. 290 print#2,d2:print#2,q$d1$:print#2,q$d2$:print#2,d3:print#2,q$d3$
  31. 300 print#2,pn:print#2,ps:print#2,c1:print#2,c2:print#2,c3:print#2,c4
  32. 310 print#2,be:print#2,re:print#2,c7:print#2,c8:print#2,c9:print#2,xo:print#2,xf
  33. 320 print#2,xp:print#2,sw:print#2,ld:print#2,pa:print#2,ft:print#2,fc:print#2,sr
  34. 330 fori=0to17:print#2,b%(i):next
  35. 340 print#2,q$mi$:print#2,q$mo$:print#2,q$pt$:print#2,q$fo$:print#2,q$f8$
  36. 350 print#2,q$te$:print#2,q$as$:print#2,q$pf$:print#2,q$fk$:print#2,q$ss$:close2
  37. 360 ifph=0orv>=9then440
  38. 370 ifph<20then410
  39. 380 print#15,"s:"pf$"1":open2,dv,2,pf$+"1,s,w":print#2,ph-19
  40. 390 fori=20toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i):print#2,bd%(i)
  41. 400 print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next:close2:ph=19
  42. 410 print#15,"s:"pf$:open2,dv,2,pf$+",s,w"
  43. 420 print#2,ph:fori=1toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i)
  44. 430 print#2,bd%(i):print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next:close2
  45. 431 open2,dv,2,fk$+",s,w":fori=2to16:print#2,q$fc$(i):next:close2:goto560
  46. 440 ifv>=9.2then560
  47. 450 print"[197]nter phone book file: [160][157]";:input#9,pf$:print
  48. 460 ifpf$="[160]"then560
  49. 470 open2,dv,2,pf$:input#15,e:ife>19then550
  50. 480 input#2,ph:fori=1toph:input#2,p$(i),ph$(i),pw$(i),bd$(i)
  51. 490 input#2,cg%(i),l8%(i),sc$(i):ifval(bd$(i))<7thenbd%(i)=val(bd$(i)):goto520
  52. 500 fork=6to0step-1:ifval(bd$(i))>=bd(k)thenbd%(i)=k:k=0
  53. 510 next
  54. 520 next:close2:print#15,"s:"pf$:open2,dv,2,pf$+",s,w":print#2,ph
  55. 530 fori=1toph:print#2,q$p$(i):print#2,q$ph$(i):print#2,q$pw$(i):print#2,bd%(i)
  56. 540 print#2,cg%(i)+2*l8%(i):print#2,q$sc$(i):next
  57. 550 close2:goto440
  58. 560 print"[147]":ifpeek(6)<255thenend
  59. 570 open2,dv,0,"prog menu":input#15,e:close2:ife>19then590
  60. 580 load"prog menu",dv
  61. 590 open2,dv,0,"novaterm ?.?*":input#15,e:close2:ife>19thenend
  62. 600 load"novaterm ?.?*",dv,1
  63. 610 open2,dv,2,"nova data "+vv$:input#2,v$:ifv$<>vv$thenclose2:goto830
  64. 620 ifv>8.1then660
  65. 630 fori=1to20:input#2,p$(i),ph$(i),pw$(i),bd$(i),cg%(i):next
  66. 640 fori=2to16:input#2,fc$(i):next
  67. 650 input#2,bd,pr,s,w,h,c1,c2,c3,be,re,mi$,mo$,pt$,fo$,te$:close2:return
  68. 660 ifv>8.2then700
  69. 670 input#2,ph:fori=1toph:input#2,p$(i),ph$(i),pw$(i),bd$(i),cg%(i):next
  70. 680 fori=2to16:input#2,fc$(i):next
  71. 690 input#2,bd,pr,s,w,h,c1,c2,c3,be,re,mi$,mo$,pt$,fo$,te$:close2:return
  72. 700 ifv>9then740
  73. 710 fori=2to16:input#2,fc$(i):next
  74. 720 input#2,bd,pr,s,w,h,di,c1,c2,c3,be,re,rm,l8,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$
  75. 730 close2:return
  76. 740 ifv>9.1then780
  77. 750 fori=2to16:input#2,fc$(i):next
  78. 760 input#2,bd,di,d1,d2,d1$,d2$,c1,c2,c3,be,re,rm,c8,c9,xo,xf,sw
  79. 770 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
  80. 780 ifv>9.2then830
  81. 790 fori=2to16:input#2,fc$(i):next
  82. 800 input#2,bd,di,d1,d2,d1$,d2$,d3,d3$,pn,ps,c1,c2,c3,be,re,c8,c9,xo,xf,sw,pa
  83. 810 input#2,ft,fc,sr:fori=0to17:input#2,b%(i):next
  84. 820 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
  85. 830 ifv>9.3then880
  86. 840 fori=2to16:input#2,fc$(i):next
  87. 850 input#2,bd,di,d1,d2,d1$,d2$,d3,d3$,pn,ps,c1,c2,c3,be,re,c8,c9,xo,xf,xp,sw
  88. 860 input#2,pa,ft,fc,sr:fori=0to17:input#2,b%(i):next
  89. 870 input#2,mi$,mo$,pt$,fo$,f8$,te$,as$,pf$:close2:return
  90. 880 print"[214]ersion number does not match":v=0:return
  91.